﻿Public Class FrmWeb

    Private Sub FrmWeb_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        WebBrowser1.Navigate(Rep & "Compte-voiturage.html")

    End Sub

    Private Sub CmdFermer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdFermer.Click
        Close()
        Dispose()
    End Sub

    Private Sub CmdIe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdIe.Click
        System.Diagnostics.Process.Start(Rep & "Compte-voiturage.html")
    End Sub

End Class